home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / ques_221.zip / SAMPLES.ZIP / DEMOS.ZIP / REKEN.Q-A < prev    next >
Text File  |  1990-07-04  |  600b  |  51 lines
  1. clearscreen
  2.  
  3.  
  4. display "Enter first value: "
  5. ask 3 1
  6. display "|"
  7.  
  8.  
  9. display "Enter second value: "
  10. ask 3 2
  11. display "|"
  12.  
  13.  
  14. display "<1>  Add values|"
  15. display "<2>  Multiply values|"
  16. display "<3>  Substract values|"
  17. display "|"
  18. display "Your choice:"
  19. getchoice 123 10
  20. display "|"
  21. display "|"
  22.  
  23.  
  24. display "The solution to "
  25. display 1
  26.  
  27.  
  28. if 10 = "1" 
  29. display " and "
  30. addvar 1 2
  31. endif
  32. if 10 = "2"
  33. display " * "
  34. mulvar 1 2
  35. endif
  36. if 10 = "3"
  37. display " minus "
  38. subvar 1 2
  39. endif
  40.  
  41.  
  42. display 2
  43. display " = "
  44. listanswer 1
  45.  
  46.  
  47. display "|"
  48. display "Press <ENTER>"
  49. ask 0 1
  50.  
  51.